MsgBox "Thank you " + FirstName.Text + ", the number entered: " + RegNumText.Text + " was valid, please retain it for future reference should you need to re-install GetMoney. Shareware notices will now be omitted.", 48
RegStat = RegNumText.Text
First = FirstName.Text
Last = LastName.Text
Else
Beep
RegNum.Hide
MsgBox "Sorry, the number entered was invalid.", 48